Enumerator report
=================



<<dd_do: quietly>>
use "GPS_Germany", clear
qui su date
global latest = r(max)
global latest_fmt: di %td r(max)
<</dd_do>>


## Latest data (<<dd_display: "$latest_fmt">>)

<<dd_do: quietly>>
qui unique date
local r_int = round(_N/`r(unique)',.01)
<</dd_do>>


On average, <<dd_display: `r_int'>> interviews were conducted per day.

<<dd_do: quietly>>
qui count if date==$latest
<</dd_do>>
	
On <<dd_display: "$latest_fmt">>, <<dd_display: `r(N)'>> interviews were conducted.
	
<<dd_do: quietly>>
twoway (hist patience if date<$latest , col(blue%25) w(0.25) legend(lab(1 Old)))  (hist patience if date==$latest , col(red%25) w(0.25) legend(lab(2 New)))
<</dd_do>>

<<dd_graph: saving("patience2.png") replace height(400)>>